home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / utility / fwkcs118.zip / GETLOOK.BAT < prev    next >
DOS Batch File  |  1992-09-11  |  2KB  |  72 lines
  1. @echo off
  2. cls
  3. echo - Part of FWKCS(TM) Contents_Signature System, Version 1.18.
  4. echo - (C)Copyright Frederick W. Kantor 1989-1992. All rights reserved.
  5. echo -
  6. echo - Your use of the FWKCS(TM) Contents_Signature System is at solely your own
  7. echo - risk.  For safety, please have proper backups of your files.
  8. echo -
  9. echo - GETLOOK.BAT to get the remote Lookup option without installing the
  10. echo -             FWKCS(TM) Contents_Signature System;
  11. echo -             for use in the same directory with FWKCS.118 and FWKCS_TM.118.
  12. echo -
  13. echo - Usage:
  14. echo -
  15. echo -        GETLOOK "<enter>"
  16. if "%1" == "/*" goto end0
  17. echo -
  18. echo -  To quit, press Ctrl+C, then y
  19. echo -
  20. pause
  21. if not exist fwkcs.118 goto nd
  22. if not exist fwkcs_tm.118 goto cm
  23. ren fwkcs_tm.118 fwkcs_tm.com > nul
  24. fwkcs_tm < fwkcs.118 >fwkcstmp.118
  25. if errorlevel 1 goto fbad
  26. ren fwkcs_tm.com fwkcs_tm.118 > nul
  27. pkunzip -o fwkcstmp.118 fwkcs.exe fwkcs118.h0? fwkcs118.ref lookup.bat rcrosref.bat lookup.doc lookcref.blt register.doc >nul
  28. if errorlevel 51 goto fz
  29. if errorlevel 50 goto ns
  30. if errorlevel 1 goto fz
  31. goto end
  32. :ns
  33. echo -
  34. echo - There is apparently not enough space here for me to work in...
  35. echo -
  36. echo - After you have provided more space here, or moved my files to
  37. echo -   another drive with enough space,
  38. goto delbad
  39. :fz
  40. echo -
  41. echo - Error getting files.
  42. :delbad
  43. if exist fwkcs.exe del fwkcs.exe > nul
  44. if exist fwkcs118.h0? del fwkcs118.h0? > nul
  45. if exist lookup.bat del lookup.bat > nul
  46. if exist rcrosref.bat del rcrosref.bat > nul
  47. if exist lookup.doc del lookup.doc > nul
  48. if exist lookcref.blt del lookcref.blt > nul
  49. if exist register.doc del register.doc > nul
  50. goto try
  51. :fbad
  52. ren fwkcs_tm.com fwkcs_tm.118 > nul
  53. echo -
  54. echo -  FWKCS.118 appears defective or incompatible. Execution aborted.
  55. :try
  56. echo -
  57. echo -  Please clean up, and try again. See README.TXT.
  58. goto end0
  59. :cm
  60. echo -
  61. echo -  I need FWKCS_TM.118.
  62. echo -
  63. echo -        I quit!
  64. goto end0
  65. :nd
  66. echo -
  67. echo -    Nothing to do!
  68. :end0
  69. echo -
  70. :end
  71. if exist fwkcstmp.118 del fwkcstmp.118 > nul
  72.